home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / STRING / extend.s < prev    next >
Encoding:
Text File  |  1996-01-27  |  287 b   |  18 lines
  1.  
  2. **
  3. ** extend (c:CHARACTER)
  4. **
  5. ** Copyright © 1995, Guichard Damien.
  6. **
  7.  
  8. extend
  9.         move.l  ($8,a1),d0
  10.         cmp.l   ($4,a1),d0
  11.         bge.s   .end
  12.         move.l  ($C,a1),a2
  13.         move.b  ($7,sp),(0,a2,d0.l)
  14.         add.l   #1,d0
  15.         move.l  d0,($8,a1)
  16. .end    rtd     #4
  17.  
  18.